home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Programming / AmigaE / Src / Pd / threads / modules / geta4.e next >
Encoding:
Text File  |  1995-04-11  |  247 b   |  18 lines
  1. -> geta4.e - store and get the global data pointer kept in register A4
  2.  
  3. OPT MODULE
  4.  
  5. EXPORT PROC storea4()
  6.   LEA a4storage(PC),A0
  7.   MOVE.L A4,(A0)
  8. ENDPROC
  9.  
  10. EXPORT PROC geta4()
  11.   LEA a4storage(PC),A0
  12.   MOVE.L (A0),A4
  13. ENDPROC
  14.  
  15. a4storage:
  16.   LONG NIL
  17.  
  18.